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“SPORTH SCHAMGE” IS AN OPEN 
ЕСЕМ Fk QWMERS OF FORTH 
ЕЕЕМЕ FINE FORTH RELATED 
PRODUCTS FROG HAWG WILD 
SOFTWARE © Tho. F. O. Ей TEGIL 
LITTLE ROCK. НЕ rear: 

“RF OR TH SCHANMGE ” I5 
RELEASED ІМ THE FUBLIC DOMAIN 
VIR COOPERATIAG FUBLICATIONS. IT 
Іш REQUESTED THAT THE ABE 
CREDIT LINE BE INCLUDED ІМ ANY 
REPRODUCTION OR EXCERPT OF THIS 
Fare Ltt, HO LIABILITY IS ASSUMED 
FOR USEMISUSE OF THE CONTENTS 
ПЕ THIS FORUM, 

59 GAR’ SMITH, EDT TOR 


WE ARE RATHER PROUD PARENTS 
AT HAWG WILD THESE DAYS. WE HAVE 
A МЕМ “206S FIG-FORTH’ FOR THE 
TIMEN 2868. ED WORDEN IS THE 
ALITHOR. AND HAS DONE A SUPER JOE 
ОЕ CREATING A FULL FIG-FORTH FOR 
THE 206s 


NEEDLESS TO SAY. HE ARE 
HORE THAM FP LITTLE ANSIOUS TO 
GET THE FIRST USER CONTRIBUTIONS 
TO THE “CHANGES FOR THIS 
KERNEL. БЫТ... THIS ІМ NO WATY 
MEANS WE ARE READY TO DROP 
SUPPORT FOR ОЦЕ OTHER KERNELS 
SADLY ІТ APPEARS OUR USERS 
HENE QUIT SUPPORTING OUR 
NAMESAKE. FORTH. ЕСЕТН-?Ә FOR 
THE Zx¢TS HAS RECIEVED VERY 
LITTLE INPUT OF LATE. ШЕ ARE 
FUZZELED. ESPECIALLY IN LIGHT OF 
THE VERY RICH CONTRIBUTIONS 
SFORTH USERS SHARED WITH US IN 
МО. 292. WE HOPE IT IS DUE To 
THE SUMMER GCOLDRUMS. AND YOU 
SFORTH USERS WILL BE BACK 
FILLING OUR PAGES SHORTLY. IT 
WOULD BE SAD. INDEED. IF THE 
BANNER KERNEL DISAPPEARED FROM 
THESE PAGES, BEST REGARDS. GARY 
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92 жо Ge 
РПЕТНІЗЕ HANDEL TMG. AND. FINALLY 
ЛЕ YOU WANT TO RUN SPECTRUM 
FORTH ON YOUR TIMES 2868 WE HAVE 
THE EMU-1 SPECTRUM EMULATOR, 


ЖЕ ЕЕ seb oboe ds 


5 FOR ABACUS TINY FORTH: 

DURE THAMES TO Ер THOMAS СЕ 
LETTELE ROCE. НЕ FOR THE 
FOLLOWING IMPLEMENTATION OF . S 

2S DEPTH 

IF Ері 2666 + 2214 
DO R 7 -2 +LOOP ELSE 
J 7 STACK Ee 
ENDIF ШЕ; 


Ер IS ALSO WORKING WITH SOME 
PROGRAMS THAT REQUIRE DOUBLE 
NUMBERS. AND SHARES HIS DOUBLE 
NUMBER DEFINITIONS. 


ЕрБЕПР DROP CROP ; 

2DUF OVER COVER ; 

e2SWAP ROT ЭР ROT БО; 
SOVER ОЕ ОР SOUP БО Ro 
2ZSWAP i 

BROT ОР ЭВ SSWAP БО PD 
25WAP i 


ЖжЕМПТЕ: ІМ FORTH" USE THE 
FOLLOWING ¢GARY > 


2ROT & ROLL 6 ROLL ; 


2eSWAP 4 ROLL 4 ROLL 5 
SOVER 4 PICK 4 PICK 3 


ЕЗ ЕЕ ЕЕ ЕЕЕ se: 


FORTH-?3 - FIG-FORTH CHART : 
FOR A SELF-ADDRESSED, 
STAMPED ENVELOPE (POSTAGE FUR 2 


OUNCES “АЦРАЕ INTERNAT TONAL 
CORPORAT DOM: S881 EAST 24TH 
STREET: SUITE 1, TUCSON, 


ARIZONA WILL SEND SOL THEIR 
"MOTES ON “STARTING FORTH” FOR 
THE FIG-FORTH USER" TRANSLATION 
GUIDE. VALPAR IS THE WAKER OF 


МЕІШЕПЕТН. THE EXCELLENT FIG- 
PORTH FOR ATARI МІСЕШЕ. 

МЕ THANE VALFAR FER 
ALLOWING US TO LIST IT HERE FOR 
QUR “мЕННМІЗЕ” MEMEERS 


April, 1982 
Notes on Starting FORTH for the fig-FORTH User 


A very popular book on the FORTH language called 
Starting FORTH has recently been published. The author, 
Leo Brodie, gives an excellent description of the FORTH 
language as implemented at FORTH, Inc. fig-FORTH differs 
from that implementation in some areas, and this document 
explains those differences. All conments that apply to 
fig-FORTH also apply to valFORTH. 


BLANK = BLANKS (page 285) 


Brodie describes the word. BLANK. In fig-FORTH, this 
word is BLANKS. 5 


EMPTY-BUFFERS vs. EMPTY-BUFFERS (page 283) 


Brodie's word EMPTY-BUFFERS does not necessarily 
change the buffers. In fig-FORTH, EMPTY-BUFFERS zero 
fills the buffers. 


CONTEXT vs. CONTEXT (page 247) 

These two words are not synonymous in the two 
versions. fig-FORTH uses a system of VOC-LINKS with 
CONTEXT, while FORTH, Inc. does not. 

EXIT = ;5 (раде 246) 


The word EXIT, as Brodie describes it, is identical 
in function to 35 іп fig-FORTH. 


6 = SP@ (раде 247) 
The word "5 in FORTH, Inc.'s is SP@ іп fig-FORTH. 


PROVIDED THROUGH THE COURTESY OF VALPAR INTERNATIONAL 
CORPORATION; 3801 East 34th Street, Suite 105, Tucson. 
Arizona. further distribution of this public domain 
document must include this notice. 


“U/MOD = U/ (page 177) 


EMPTY (page 84) 
Not yet implemented in fig-FORTH. 
WIPE vs. CLEAR (page 84) 


CLEAR requires a screen number while WIPE clears 
the last screen edited. 


ABORT" (page 103) 

Not implemented іп fig-FORTH. 
?DUP = -DUP (page 103) 

The word ?00Р in FORTH, Inc.'s is -DUP in fig-FORTH. 
25ТАСК vs. ?5ТАСК (page 103) 


25ТАСК as described by Brodie is incorrect for fig- 
FORTH. ?STACK in fig-FORTH automatically aborts if there 
is a stack error. 


NEGATE = MINUS, DNEGATE = DMINUS (pages 123, 178) 


The words NEGATE and DNEGATE in FORTH, Inc.'s are 
MINUS and DMINUS respectively in fig-FORTH. 


+LOOP vs. +LOOP (Page 143) 


The word +LOOP, as Brodie describes it, works 
differently for negative stepping than the +LOOP in 
fig-FORTH. fig-FORTH always ends if the index equals the 
limit, even for negative stepping. 


PAGE = CLS (page 143) 


Brodie's PAGE is called CLS in valFORTH. It has no 
equivalent in fig-FORTH. 


Brodie's U/MOD is U/ іп fig-FORTH. 
CREATE vs. CREATE (page 209) 


Brodie's CREATE works differently from CREATE in 
fig-FORTH. А word using CREATE in- fig-FORTH must unSMUDGE 
the header before the word can be used. The ";" unsmudges 
headers automatically. In addition, Brodie's CREATE and 
fig-FORTH CREATE move different default values in the CFA 
of the created header (see below). 


CREATE = <BUILDS (page 209) 


In Brodie's chapter 11 on extending the compiler, he 
uses the series CREATE...DOES>. Іп fig-FORTH, this should 
be <BUILDS...DOES>. 


NUMBER vs. NUMBER (page 285) 


Brodie's NUMBER only converts numbers to double 
length if the double word set is loaded. fig-FORTH 
always converts numbers to double length. 


>IN = IN, H= DP (page 247) 


The variable >IN and H іп Brodie's FORTH are ІМ and 
ОР respectively іп fig-FORTH. 


VARIABLE vs. VARIABLE (page 209) 


The word VARIABLE, as Brodie describes it, accepts 
no value from the stack. fig-FORTH, on the other hand, 
does expect an initialization value from the stack. 


vs. ' (page 215) 


These words are not synonymous. ‘ in Brodie is 
the same as ' 2- in fig-FORTH (or, more properly, ' CFA.) 


PROVIDED THROUGH THE COURTESY OF VALPAR INTERNATIONAL 
CORPORATION; 3801 East Mem Street, Suite 105, Tucson, 
Arizona. Further distrisutton of this public domain 
document must include (915 notice. 
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“МЕПЕТН XCHANGE’ IS AN OPEN 
FORUM FOR OWNERS OF FORTH 
KERNELS AND FORTH RELATED 
PRODUCTS FROM HAWG WILD 
SOFTHARESTM2.P. 0. BOK FEES 
LITTLE ROCK. AR тогі? 

“МЕСЕТН SCHANGE ” 15 
RELEASED IN THE PUBLIC DOMAIN 
МІН COOFERATING FUBLICATIONS. ІТ 
IS REQUESTED THAT THE ABOVE 
CREDIT LINE BE INCLUDED ІМ ANY 
REPRODUCTION OF EXCERPT OF THIS 
FORUM. NO LIABILITY IS ASSUMED 
FOR USEMISUSE OF THE CONTENTS 
OF THIS FORUM. 

- GARY SMITH EDITOR 
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CONTEXT: EDITOR’S CORNER - 

WE ARE RATHER PROUD PARENTS 
AT HAWG WILD THESE DAYS. МЕ HAVE 
A МЕН "2068 FIG-PORTH" FOR THE 
ТІМЕН 2868 ED WORDEN IS THE 
AUTHOR: AND HAS DONE A SUPER JOB 
OF CREATING A FULL FIG-FORTH FOR 
THE 2068 

NEEDLESS TO SAY. WE ARE 
MORE THAN A LITTLE ANSIOUS TO 
GET THE FIRST USER CONTRIBUTIONS 
To THE “SCHANGE’ FOR THIS 
KERNEL. BUT... THIS IN NO WAY 
МЕНМЕ WE ARE READY TO DROP 
SUPPORT FOR OUR OTHER KERNELS 

SADLY. ІТ APPEARS ОЦЕ USERS 
HAVE QUIT | SUPPORTING OUR 
NAMESAKE. SFORTH, ЕОЕТН-?Э FOR 
THE  ZW/TS HAS RECIEVED VERY 
LITTLE INPUT OF LATE. WE ARE 
PUZZELED, ESPECIALLY IN LIGHT OF 
THE VERY RICH CONTRIBUTIONS 
SFORTH USERS SHARED WITH US IN 
әш. 242. МЕ HOPE IT IS DUE TO 
THE SUMMER DOLDRUMS. AND YOU 
SFORTH USERS WILL BE BACK 
FILLING OUR PAGES SHORTLY. ІТ 
WOULD BE SAD. INDEED, IF THE 
BANNER KERNEL DISAPPEARED FROM 
THESE PAGES. BEST REGARDS. GARY 


ЕЕЕ ЕЕ ЕЕ ЕЕ ЕЕ t: 


МЕМ KERNELS 

НЕ WAS MENTIONED “2068 
FIG-FORTH” IS NOW READY. ІТ IS 
FULL FIG-FORTH FOR THE TIMEX 
SHS. JOHN JONES- STEELE СЕ 
RBERSOFT HAS ALSO GIVEN Ws 
ESCLUSIVE DISTRIBUTION OF THE 
TIKES 2865 VERSION OF HIS GREAT 
SPECTRUM FORTH. BOTH THESE ARE 
FOR THE 2868. МЕ ALSO HAVE 
SPECTRUM FORTH FROM CF SOF THARE 


FOR THE SINCLAIR SPECTRUM. ALL 


THESE KERNELS ARE #29. 95 + #2. па 
POS TAGE“HANDL IHG. AND. FINALLY 
.. ТЕ YOU WANT TO RUN SPECTRUM 
FORTH ON YOUR TIMEX 2865 WE HAVE 
THE EMU=2 SPECTRUM EMULATOR 


ЕЕ ЕЕ ЕЕ i 


і 


FOR ABRADUS TINY FORTH: 
OUR THAMES TŪ ED THOMAS OF 
ЕЕЕ ROCE. AR ЕСЕ THE 
FOLLOWING IMPLEMENTATION OF . $ 
: . & DEPTH 
IF ЗР оривай + 2214 
OO FoF -2 НЕ ELSE 
w STACE EMPTY 
ENDIF БЕ; 


Ер IS ALSO WORKING WITH SOME 
PROGRAMS THAT FEGQUIFE DOUBLE 
HUMBER. AWD SHARES HIS DOUBLE 
HUMBER DEFINITIONS. 


2DROP DROP DROP ғ 

2DUP OVER OVER > 

2SWAP ROT >R ROT R> ; 
ZOVER >R ОЖ 2DUP R> R> 
25МАР ; 

2ЕОТ >R >R ZSWAP Rb R> 
2SWAF ; 


44NOTE: ІМ FORTH-F9 USE THE 
FOLLOWING GART 


СЕПТЕ ROLL & ROLL 5 
2SHAP 4 ROLL 4 ROLL 5 
ӘПУЕЕ 4 FICK 4 PICK ; 


af ЕЕ ie tes oe of 


FORT Я 


STAR = 
СИНЧЕ: ЗІ. 
ORF TH 
STRE М. 
ARIZONA WILL SEND Sou THEIR 


"HOTES ON STARTING FORTH FOR 
THE FIG-FORTH USER" TRANSLATION 
GUIDE. VALPAR TS THE MAKER OF 


VALFORTH., THE EXCELLENT FIG- 
FORTH FOR ATARI MICROS 

HE ТНАМЕ VALPAR FOR 
ALLOWING US TO LIST IT HERE FOR 
QUE “ЧСНЯМЗЕ” MEMBERS 


April, 1982 
Notes on Starting FORTH for the fig-FORTH User 


A very popular book on the FORTH language called 
Starting FORTH has recently been published. The author, 
Leo Brodie, gives an excellent description of the FORTH 
language as implemented at FORTH, Inc. fig-FORTH differs 
from that implementation in some areas, and this document 
explains those differences. All comments that apply to 
fig-FORTH also apply to valFORTH. 


BLANK = BLANKS (page 285) 


Brodie describes the word BLANK. In fig-FORTH, this 
word is BLANKS. 


EMPTY-BUFFERS vs. EMPTY-BUFFERS (page 283) 

Brodie's word EMPTY-BUFFERS does not necessarily 
change the buffers. In fig-FORTH, EMPTY-BUFFERS zero 
fills the buffers. 

CONTEXT vs. CONTEXT (page 247) 

These two words are not synonymous in the two 
versions. fig-FORTH uses a system of VOC-LINKS with 
CONTEXT, while FORTH, Inc. does not. 

EXIT = ;5 (раде 246) 


The word EXIT, as Brodie describes it, is identical 
in function to ;5 in fig-FORTH. 


'S = SP@ (page 247) 
The word "5 in FORTH, Inc.'s is SP@ іп fig-FORTH. 


PROVIDED THROUGH THE COURTESY OF VALPAR INTERNATIONAL 
CORPORATION; 3801 East 34th Street, Suite 105, Tucson. 
Arizona, Further distribution of this public domain 
document must include this notice. 


EMPTY (page 84) 
Not yet implemented in fig-FORTH. 
WIPE vs. CLEAR (page 84) 


CLEAR requires a screen number while WIPE clears 
the last screen edited. 


ABORT" (page 103) 

Not implemented іп fig-FORTH. 
?DUP = -DUP (page 103) 

The word ?DUP in FORTH, Inc.'s is -DUP іп fig-FORTH. 
25ТАСК vs. ?STACK (page 103) 


?STACK as described by Brodie is incorrect for fig- 
FORTH. ?STACK іп fig-FORTH automatically aborts if there 
is a stack error. 


NEGATE = MINUS, DNEGATE = DMINUS (pages 123, 178) 


The words NEGATE and DNEGATE in FORTH, Inc.'s are 
MINUS and DMINUS respectively in fig-FORTH. 


+LOOP vs. +LOOP (Page 143) 


The word +LOOP, as Brodie describes it, works 
differently for negative stepping than the +LOOP in 
fig-FORTH. fig-FORTH always ends if the index equals the 
limit, even for negative stepping. 


PAGE = CLS (page 143) 


Brodie's PAGE is called CLS in valFORTH. It has no 
equivalent in fig-FORTH. 


~U/MOD = U/ (page 177) | 
Brodie's U/MOD is U/ in fig-FORTH. 
CREATE vs. CREATE (page 209) 


Brodie's CREATE works differently from CREATE in 
fig-FORTH. А word using CREATE in fig-FORTH must unSMUDGE 
the header before the word can be used. The "3" unsmudges 
headers automatically. In addition, Brodie's CREATE and 
fig-FORTH CREATE move different default values in the CFA 
of the created header (see below). 


CREATE = <BUILDS (page 209) 


In Brodie's chapter 11 on extending the compiler, he 
uses the series СВЕАТЕ...00Е5>. Іп fig-FORTH, this should 
be <BUILDS...DOES>. 


NUMBER vs. NUMBER (page 285) 


Brodie's NUMBER only converts numbers to double 
length if the double word set is loaded. fig-FORTH 
always converts numbers to double length. 


>IN = IN, H= DP (раде 247) 


The variable >IN and H in Brodie's FORTH are IN and 
DP respectively in fig-FORTH. 


VARIABLE vs. VARIABLE (page 209) 


The word VARIABLE, as Brodie describes it, accepts 
no value from the stack. fig-FORTH, on the other hand, 
does expect an initialization value from the stack. 


vs. ' (раде 215) 


These words are not synonymous. ' in Brodie is 
the same as ' 2- in fig-FORTH (or, more Properly, ' CFA.) 


PROVIDED THROUGH THE COURTESY OF VALPAR INTERNATIONAL 
CORPORATION; 3801 East em Street. Suite 105, Tucson. 
Arizona. Further distribution of this public domain 

document must include tris notice. 


OF ERROR DETECTION. ІТ IS UP ТО 
YOU TO REMEMBER THE RIGHT PAREN. 
IF YOU FORGET ІТ. YOU WILL NOT 
BE PLEASED! 
с 17 WORD ; IMMEDIATE 
ЖЕ ok ЕЕ ob oe 
GREAT STUFF FOR МІШ-ЕСЕТН: 

I SAW A LETTER ІМ “FORTH 
DIMENSIONS” FROM MICHAEL Б. 
MARSH ПЕ ISLA VISTA CA 
COMMENTING OM HOM MUCH FUN HE 
WAS HAVING WITH FORTH ON HIS 
мІ. MICHAEL Із USING 
VWIC-FORTH FROM HESS. НЕ NATED 
HIS FIRST PROJECT WAS TO CONVERT 
“BREAKFORTH" (BYTE. AUGUST 198603 
TO RUM ON HIS COMPUTER. 

SINCE I HAG RECIEVED 
SEVERAL COMMODORE RELATED 
INQUIRIES. I DROPPED A LINE 
ASE ING IF MICHAEL WOULD CARE TO 
CONTRIBUTE SOME THOUGHTS TO THE 
“SCHANGE”. LITTLE DID I EXPECT 
HIS DYNAMITE RESPONSE! 


HIS LETTER: 

I HAVE ENCLOSED A FEM 
THINGS THAT MIGHT BE OF 
INTEREST. 


FIRST. THERE IS ĦA МЕМ. 
ІМРЕОУЕр VERSION OF THE SCREEN 
DUMPE (FORTH DIMENSIONS. YOL. 62. 
YOU CAN ALWAYS ісек BACK ON 
FORTH CODE AND SEE HOW TO MAKE 
IT MORE ELEGANT. THIS TRANSLATES 
COMMODORE SCREEM CODE. NOT 
COMMODORE ASCII, To ASCII. 

І HAVE SENT A SCREEN WITH 
HIRES USEFUL IH CREATING 
PROGRAMMABLE CHARACTERS USING 
МІШЕСЕТН. THERE IS ONE GLITCH. 


ЫНЕМ SOU USE THE WORDS To CALL 
PROGRAMMABLE CHARACTERS. 
ӘСЕЕЕМЕЗ Іс СЧЕЕ-МЕТТТЕМ ІМ 


PLACES WITH GARBAGE. THIS MAY БЕ 
AN ADDRESSING PROBLEM. SOME OF 
YOUR READERS MAY БЕ ABLE TO FIND 
QUT WH. 

MICHAEL ASKED FOR BACK 
ISSUES OF “FORTH CHANGE’ WHICH 
І SENT IMMEDIATELY. AND IF WE 
COULD USE HIS TRANSLATION OF 
BREAKFORTH. 

YES! PLEASE DO SEND IT 
MICHAEL. AND THANES VERY MUCH 


FOR PLANTING A FANTASTIC SEED 
FOR OUR COMMODORE USERS. - GARY 
SCR # 1 
а < SCREEN DUMP NEW & IMPROVED 
М. MARSH 4/12/84 >; 


UMP PRON 26 5РНСЕЗ- 


о І 4096 + Ce 

DUP 31 < IF 64 + 
EMIT ELSE 

DUP 63 > IF зё + 
EMIT ELSE 

т EMIT ENDIF ENDIF 

3 І 1 + 22 MOD B= IF CR 36 

SPACES ENDIF 


3 LOOP CR CR 
16 CLALL 3 
12 
іс : ГЕМО 4696 386 42 FILL 
SCR. DUMP i 5 
15 
14 
SCR # 1 


а с PROGRAMMABLE CHARACTERS 
М. MARSH "Le -84 4 


1 

2 : PAGE 147 EMIT 3 

х : LOAD. CHRS F679 716s DO I 
25660 + Св I ! LOOP ; 

4 

5 

6 


NORMAL 192 36869 ! 3 
PROG. CHES 207 36563 ! i; 
ТТ 66 Рі28 C! 66 Paes C! 
165 735350 C! 129 TIIA C! 
ғ 165 7332 С! 153 7333 C! 


66 PSs4 C! ва FIFI C! | 
5: FILL. SCRNM 40965 S66 26 


ігезе 386 8 FILL i 
3 : PAUSE BEGIN ?TERMINAL 
UMTIL 3 
ій : MSG ." THIS DEMONSTRATES 
PROGRAMMABLE CHARAC- TER 
11 55 HIT ANY KEY TO ERASE 
SCREEN. " PAUSE ; 
іс : DEMO PAGE LOAD. CHES MSG 
FILL. SCRN PROG. CHRS TT 


PAUSE 
is NORMAL PAGE GUIT 3 
14 
45.25 


SCR # 2 
с PROG. CHES SCREEN 2 M. 


a 
MARSH > 
1 
2 236 VARIABLE ROBOT 24. 36. 
255 , 189, 24, 24. 
24, 


і 8 VARIABLE SHOTA 24. ё, 
ә. 8. 24. а, 24, 

4 24 VARIABLE SHOT2 а, 24+, 
а. 24, а. 24. B.’ 


в : CHNG. CHES ғой DO ROBOT I 


2 + + CB 7165 I + ! LOOF 
т та бо SHOTA І 

2+ СВ F176 I + ! LOOP 
З та DO SHOT2 I 


рок CE Fised I + ! LOOF 3; 


іп : ЕМО LOAD. CHES CHNG. CHES 
PROG. CHES PAGE BEGIN 19 
EMIT 
14. 22 8 Dū 64 EMIT 157 EMIT 
іг EMIT гай DO 65 EMIT 
іш 157 EMIT 66 EMIT 157 EMIT 
32 EMIT іЗР EMIT LOOF 
із 145 EMIT 32 EMIT 17 EMIT 
LIOF 
i4 FTERMINAL UNTIL MORMAL > 
із 525 
GLOSSARY FOR FROG. CHARACTERS 


PAGE © - 9 CLEARS SCREEN 


LOAD. CHES € - о COPY 15Т CHAR. 
SET m ROM INTO RAM BEGINNING AT 
ADDRESS FAGS жж NOTICE THIS IS 
PART OF SCREEN #3-CAUSES GARBAGE 
TO OVERWMRITE LINES 2 THRU 16 


NORMAL 5 = 9 LOOK FOR 
CHARACTERS IN ROM. IE: RETURNS 
SCREEN TO NORMAL AFTER CALLING 
PROG. CHARS. 

PROG. CHRS € - о LOOK FOR 
CHARACTERS IN RAM. IE: CALL 
FROGRAMMABLE CHARACTERS 


TT с = > CHANGES "Т" TO 
A “HAPPY FACE” 


FILL. ӘСЕМ € - > FILLS SCREEN 


WITH SCREEN CODE FOR LETTER "T" 


PAUSE 5 - 2 HALTS 

SECUTION TILL ANY KEY HIT 

MSG € - > PRINTS MESSAGE 
DEMO с - > DEMONSTRATION 


OF PROGRAMMABLE CHARACTERS 


CHNG. CHES € - > CHANGE 
AMPERSAND INTO A ROBOT AND 
LETTERS "A" AND "в" INTO ITS 
EXHAUST 


DEMOS 225 - > SECOND 
DEMONSTRATION OF PROGRAMABLE 
CHARACTERS WITH ANIMATION 


AGAIN, ОЦЕ THAMES То 
MICHAEL FOR A GENEROUS AND 
REALLY INTERESTING CONTRIBUTION. 
WE SINCERELY HOFE THIS WILL HOT 
BE HIS LAST CONTRIBUTION. ны" 
TRANSLATIONS FROM YOU OTHER 
USERS? 

ЖӘНЕ АЕ RE 
ср, STRING HANDLING. AND 
MORE GREAT STUFF FOR “FORTH : 

JANES MCCONNELL. AYER. MA 
SUBMITTED ANOTHER VERY 
INFORMATIVE LETTER. ¿JAMES HAS 
RAPIDLY BECOME SOMETHING OF AM 
FORTH GURUS. 

MUCH OF WHAT JAMES HAS TO 
OFFER WILL AID *ALL* FORTH USERS 
BETTER UNDERSTAND THE FORTH 
ENVIRONMENT! НЕ WRITES: 

І HAVE BEEN WORKING WITH 
“FORTH AND THE ACE TO TRY TO 
ANSWER SOME QUESTIONS AND. ІМ 
THE PROCESS HAVE LEARNED QUITE A 
БІТ ABOUT НОМ FORTH CAND FORTH 
IN GENERAL? WORKS. I FIND THE 
“JUPITER ACE PROGRAMMING MANUAL ” 
A REALLY EXCELLENT TUTORIAL. IT 
SHOWS HOW TO DO SOME REALLY 
FASCINATING TRICKS. І RAN THE 
"ТЕЧЕ" LISTED ІМ FEE. 1984 


“POPULAR COMPUTING” ІМ 29 
SECONDS ҒАТ! 
TRY THIS... 


HEX HEADER LFRINT CS C CD C. 
даті , Сі С, ESFD . 
--> 


Ф 


DECIMAL 
16444 CONSTANT PRBUFF 


LINES й DO PAD PRBUFF 32 
CMHOVE PAD 32 + PAD 324 
CMOVE ЦРЕІНТ LOOF 3 


PAD 256 EXPECT 
CTYPE LETTER 8 LINES LONG? 
З LINES “SHOULD LPRINT IT? 


HEL. І CANH 
THE EEST! 

THE STARTING ADDRESS OF THE 
INFUT BUFFER IS EXACTLY PAD PLUS 
1824 ПЕ 20756 AND IT IS LIMITED 
TOLES BYTES. IF YOU GET THERE 
THE SYSTEM AUTOMATICALLY INPUTS 
THIS ІС LIKE 28°36 128 EXPECT. 
THE FAD WILL HOLD S36 BYTES. I 
THINK. BECAUSE THERE SEEMS TO BE 
SOME SYSTEM VARIABLES BETWEEN 
THE PAD ANG THE INPUT BUFFER. 

BE CAREFUL NOT TO PUT MORE 
THAN 32 BYTES INTO PRBUFF USING 
A LOOP AND PRBUFF PAD 22 CMOVE. 
VOU CAN BACK UP THE CONTENTS OF 
PAD FOR THE NEAT LPRINT WITH: 

PAD BUF ЗЕ + S28 CMOVE 

THE ABOVE SHOULD KEEP THE 
LFRIHTERS © HAPPY! FER: QUITE 
AWHILE. FOR THOSE WHO WANT TO 
LLIST I CAN ONLY ASK LLIST WHAT? 
SINCE THE PROGRAMS AREN T STORED 


"ІРЕІМТ" WITH 


IN THE SAME MANNER AS BASIC 
THERE IS NOTHING USABLE TO 
LLIST. 

THIS MAY BE БЕТТІ? BUT 
MARES A DIFFERENCE IN 


DE COMPILING WORDS. I FIND THAT " 
GIVES THE CODE FIELD ADDRESS AND 
NOT THE LINK ADDRESS AS 
MENTIONED ІМ “FORTH CHANGE” 
VOL. II. WO. I. 
SFORTH STORES 
ІМ THE FOLLOWING WAY: 
МЕН ~ МАМЕ FIELD ADDRESS 
FIRST BYTE IS NAME LENGTH © 
LFA - LINK FIELD ADDRESS 
МЕН OF PREVIOUSLY DEFINED 
WORD 
CFA ~ CODE FIELD ADDRESS 
( ТҮРЕ OF WORD > NECESSARY 
TO EXECUTE 


DEFINITIONS 


А 


PFA - PARAMETER FIELD ADDRESS 
NOW WE FIND ТНЕ-СЕН”5 OF 
THE WORDS USED TO DEFINE 
THIS WORD AS WELL AS THE 
“LITERAL” NUMBERS AND BYTES 
TO PRINT WHEN THIS WORD IS 
EXECUTED 


THE ANSWER TO S@ ON FORTH 
IS AS FOLLOWS. AT LEAST AS FAR 
AS POINTING TO THE BOTTOM OF THE 
PARAMETER STACK «ТОР REALLY. 
SINCE ІТ 15 A VARIABLE ІМ MOST 
BOOKS I WILL GIVE IT AS SUCH: 
32476 VARIABLE 50 


WITH THIS INFORMATION IT IS 

EASY TO FIND THE NEST AVAILABLE 
CELL OF THE STACK LIKE 50: 

SFe S56 @ DEPTH 2+ ~ 2 +i 


CDON T FORGET THE POUND SIGN = ё 
ІМ #FORTH - GARY'S 

A CURIOUS FEATURE OF THIS 
WORD IS IF YOU @ THE CONTENTS OF 
THE ADDRESS GIVEN BY ӨРЕ THE 


CONTENTS ARE THE ADDRESS. IF THE 
STACK IS EMPTY ANG YOU INPUT 
32746 7? THE RESULT 15 32746 


THIS IS BECAUSE YOU HAD TO FUT 


THE ADDRESS ON THE STACK To 
REQUEST THE @ ISN°T THAT A GAS? 
1 ННУЕ BEEN WORKING WITH 


STRINGS ІМ FORTH AND HAWE COME 


UP WITH НМ INTERESTING WAY TO) 
INPUT ANG RETRIEVE STRINGS. I 
REALLY HAVE TO REFER YOu TO 


“STARTING FORTH” BY LEO BRODIE. 
PRENTICE HALL AND THE “FORTH 
PROGRAMMING MANUAL” FOR JUPITER 
АСЕ, JUPITER*CANTAE FOR THE 
IDEAS THAT LED TO THIS PROGRAM. 
BECAUSE OF THE SYSTEM’S LIMITED 
BUFFER AND THE FACT YOU GET AN 
ERROR AND DUMP ‘OUR DEFINITION 
IF WOU ARE IN THE MIDDLE OF A 


WORD WHEN ‘YOU HIT THE MAGIC 
128TH BYTE. I HAVE CHOSEN ТО 
PLAY IT SAFE AND BREAK IT INTO 
ТЫП PARTS. THE FIRST IS THE 
DOES> PART. 50 I CALL IT 
"PART-THO". IT MUST BE INPUT 
FIRST SO THAT WHEN YOU INPUT 


DOES? РНЕТ-ТЫО YOU WILL NOT GET 
—> 


> 5 $ARRAY FAMILY <ENTER> 


THAT DREAD ERROR MESSAGE! I HAVE., INPUT 4: U 
INCLUDED A SAMPLE OF HOW IT CAN DENA ENIR 
BE USED. I USED THIS ROUTINE TO INPUT 2: i 
DO THE “BUZZWORD GENERATOR" AS sn S РЕ 
LISTED IN CHAPTER 18 OF Puree 
“STARTING FORTH’ AND IT DID A SERAN ENER 
BEAUTIFUL JOB. LOTS OF Sur a: 
POSSIBILITIES THERE FOR LOTS OF | > WENDY CENTERS 
AMUSEMENT WHITH “HFORTH”. POA 
> DYLAN <ENTER'> 


PART-THO BEGIN | 
сі >2 FAMILY <ЕМТЕК> JIM 
ELSE DROP COUNT 


TYPE 1 THEN UNTIL ; OUR SINCERE THANKS TO ALL WHO 


WROTE. AND ESPECIALLY TO MICHAEL 


ЗЕКЕН = AND JAMES. Ê ND — 
SARE sae Pa He os PAS *KPLIGLICATION OF FORTH 
rR." I XCHANGE IS UNSCHEDULED. AND ON 
ОТЕРИ AN AS-NEEDED BASIS. жж 
2... жж YOUR INPUT 15 ENCOURAGED. жә 
Ah et at . 2 š sre msome astan sone зен НН SOSIS IS OIS IS SES tt om ome es 
ae E HAWG HILD SOFTWARE TMO 
see SER E EA Р. о. ВХ 7668 ж LITTLE ЕОСЕТАЕ 72247 4 
LOOP 7 MCI MAIL 120: 116-5247 `. - 
РЕЗ 2 SOURCE: BCAZL6 
PART-THO ; ЕЕ COMPUSERVE: ғійбе, TOT U 


HAWG HILD SOFTHARE« TM? 
Р.П. BOX Pees 


LITTLE КОСЕ, НЕ Feelr 


MII MAIL Ib: 116-9247 
SOURCE: БСН iLE 
COMPUSERVE : РАЙЫ, TAT 


SOFTWARE к: СОМРОМЕМТЅ 
SYSTEMS (ЖЕ- HARDWARE 
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